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**F ILE**1D**LABIOACQ 
| 
| 
LL AAAAAA BREBRREB LIIII1 000000 AAAAAA cccccccc aaaaaa 
LL AAAAAA BBBBBBBB III 000000 AAAAAA CCCCCCCC aaaaaa 
LL AA AA BB 8B I] 00 00 AA AA CC aa aa 
LL AA AA BB BB I] 00 00 AA AA CC aa QQ | 
LL AA AA BB AB I] 00 00 AA AA CC QQ QQ 
LL AA AA BB 8B I] 00 00 AA AA CC aa aa 
LL AA AA BBBBBBBB I] 00 00 AA AA (CC aa aa 
LL AA AA BBBBBBBB I] 10 00 AA AA CC aa 
LL AAAAAAAAAA BB as I] Oc 00 AAAAAAAAAA (CC QQ aa aa 
LL AAAAA BB 58 I] 00 00 AAAAAAAAAA (CC QQ QQ aa 
LL AA AA BB 8B I] 00 00 AA AA (CC aa aa aad | 
LL AA AA BB Bb II 00 00 AA AA CC aa QQ Mens 
LLLLLLLLLL AA AA BBBBBBBB III 000000 AA AA cCcccccc aaaa aa aia 
LLLLLLLLLL AA AA eeeeel 000000 AA AA CCCCCCCC aqaa aa asda 
FFFFFFFFFF 000000 RRRRRRRR 

FFFFFFFFFF 000000 RRRRRRRR 

FF 00 RR RR | 

FF 00 00 RR RR 

FF 00 00 RR RR 

FF 00 00 RR RR | 

FFFFFFFF 00 00 RRRRRRRR 

FFFFFFFF 00 00 RRRRRRRR 

FF 00 00 RR RR 

FF 00 00 RR RR 

a 00 00 RR RR 

FF RR RR 
FF 000000 RR FR 
FF 000 R RR 


‘File: LABIOACQ.FOR 
: Version ‘Vv04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AN * A THE 
INCLUSION OF THE ABOVE Spd a NOTICE. THIS SOFTWARE OR OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


TRANSFERRED, 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOT 
CORPORAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPM 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


=m 


IC 
EN 


Program LABIO_DATA_ACU 


: This is the program that acquires data for the LABIO system 

! It uses the connect-to-interrupt feature of VMS to acquire 

! via a user written 1/0 routine. The actual 1/0 routine is 

! written in MACRO. The main program monitors the event flags 

! and enables and disables data acquisition for each channel. 

! It also notifies users via event flags when a buffer is full. 


! Define the LABIO data base 


Include ‘LABCHNDEF .FOR' 


' Local Variables 
Logical*4 SECTION_FLAGS, SECTION_PROT 


' System Services 
Logical*4 SYS$ASCEFC,SYSSMGBLSC,SYSSASSIGN,SYS$QI0 
Logical*4 SYSSCLREF 


! External constants 
External SECSM GBL ,SECSM_WRT,SS$_CREATED,SS$_WASSET 
External SET_EF_AST 
' Misc. 

Logical*4 AD_CIN_UP,SUCCESS 


i Create the Global Section for the data buffer 


eRe eR REA REA AAA AREA AAA AEAE RARER AERA AAA AAA AAA ETERAAAE ERE 
' 
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This data buffer will be READ/WRITE for the owner, READ only for the GROUP. 


First see if the global section already exists, if it 
does just map to it. and set the restart flag. 


en the Data File. This can not be openned 


f not Op 
a8 FORTRAN since we need the VMS channel number. 


SECTION(1) = ZLoc( LABIO_BUFFER_S) 'Start address of section 
| SECTION(2) = ZLoc( LABIO_BUFFER-E) - 1 !End address 
! Page count for the section 
SECTION_SIZE = ( SECTION(2) = SECTION(1) )/512 + 1 


SECTION_FLAGS = %Loc( SECSM_GBL ) + %Loc( SECSM_WRT ) 


Try a t ooee ine g to the piobel section 

date C( SECTION,,, %Val(SECTION_FLAGS),*LABIOCOMMON',,) 

ah SUCCESS ) Then 
RESTART = . TRUE. ‘Succes, this is a restart 


Else 
SUCCESS = GBL_SECTION_UFO( SECTION SIZE, "LABIO_SEC_FILE', 
1 SECTION_ CRANNEL ) 
-not. SUCCESS ) 


1 tail FATAL  ERROR(SUCCESS, ‘Opening Global Section File’) 
! PROTECTION is OWNER = READ/WRITE, GROUP = READ, SYSTEM/WORLD = none 
SECTION_PROT = ‘F E 0 F'X !Protection for section 
' Create and Map the Section 


| 
| 
! FLAGS for Section are GLOABAL ,SHARED,NON_ZEROED,READ/WRITE,TEMP,GLOBAL | 
| 
| 


SUCCESS = SYSSCRMPSC( SECTION. ,%Val (SECTION FLAGS) , "LABIOCOMMON' 
1 Val (SECTION CHANNEL) ,2Val (SECTION SIZES,, 
1 £ial (sect ION OPROT) NavaLtSeetion size7) 
If( .mot. SUCCESS ) 
1 Call FATAL = 7 Meat ‘Creating Global Section' 
; ig | ase = FALSE. ‘We are not restarting 
n 


i If this is not a restart, clear the data structures 
pe por. Rs at ) Then 


Do 3 oh y7ely MAX-AD_CHANNEL 'Clear AD_BLOCK | 
30 AD LOCK (y-1) = 0 | 
Do 3 = 1, BUFFER _COUNT ‘Clear Data buffers 
Do 31") MAX_B E 
3! DATA buFrehcs K71) = 0 
2 cong inv 
l= 1, MAX _PID 


Do 33 J 
33 : “COMME CT. “BLOCK(I, J) =0 'Clear Process connect block 
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! Create event flag cluster EF_NOTIFY and associate with event flags 64-95 
! These are used to notify the Data Acquisition process. 


ee : syssascer SS RVAL (EF _NOTIFY_1),EF NOTIFY _CLSTR,,) 
Not. 
1 Call FATAL_ERROR( SUCCESS, "CREATING EVENT FLAG CLUSTER’) 


Create event flag cluster EF_STATUS and associate with event flags 96-127 
These are used to notify and report the status of the user buffers 


| 
| 
SUCCESS = SYSSASCEFC( XVAL(EF_STATUS_1) EF _STATUS_CLSTR,,) | 
If ( .mot. SUCCESS) 
1 Call FATAL_ERROR( SUCCESS, "CREATING EVENT FLAG CLUSTER") 


Call SYSSSETSWM(%val(1)) 


Set-up the Connect-to-Interrupt 
First assign a VMS channel for the device 
Then call the connect-to-interrupt setup routine. 


SUCCESS = SYSSASSIGN( "LABIO_AD',CIN_CHANNEL,, ) 

If ( ,mot. SUCCESS ) 

1 Call FATAL_ERROR( SUCCESS, ‘assigning A/D device’ ) 

SUCCESS = AD_CIN SETUP( CIN_CHANNEL,SET_EF_AST ) 

If€ .mot. SUCCES 

1 Call FATAL_ERROR( SUCCESS, ‘connecting-to-interrupt') 
! End Of Initialization, Notify other processes by setting EF_DATA_ACQ 


Call SYSSSETEF( ZVal( EF_DATA_ACQ) ) 


' Make sure that we can't be swapped 
| 
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i wait for an event flag in the EF_NOTIFY cluster 
! Then read the EF_NOTIFY CLUSTER and EF_STATUS_CLUSTER 


0 Call SYSSWFLOR( ZVal(EF _NOTIFY_1) , Sval(*FFFF X) ) 


1 

' 

! Look for the flag(s) set in EF _NOTIFY 

! If the corresponding activity flag is set, activate the channel, 

! otherwise deactivate it. Also check the buffer status flag, if clear 
: clear the buffer index. 


Do 20 1 = 1,16 
If( SYSSCLREF ( RValLCEF_NOTIFY_OFF + 1)) .eq. ZLoc(SS$_WASSET)) Then 
1f¢ CK(1,1) .ne. 0 ) Then 
1f( SYSSREADEF ¢ ZValCEF_ACTIVITY_OFF + 1),EF_ STATE ) 
£9. ZLoc(SS$_WASSET ) J Then 
AD_BLOCK(1,1) = ACTIVE 


se 
AD_BLOCK(1,1) = INACTIVE 


n 
If( SYSSREADEF( %Val(EF_STATUS_OFF + 1),EF STATE ) 
= -eQ. ZLocTSS$_WASCLR)Y AD_BLOCK(7,1) = 0 
n 


End If 
20 Cont inue 
Go To 10 


End 


Subroutine SET_EF_AST( EVENT_FLAGS ) 


! This is a AST routine which ee by the 
! Interrupt service routine. Thi rout ne sets 
! the event flags indicated by the | R. 


Include "LABCHNDEF .FOR' 
Integer EVENT_FLAGS 


} The Event flags are set in cluster EF_STATUS_CLSTR 


10 1 
Te ceveNT Niet wand. BIT(1)) .ne. 0 
1 Call SYSSSETEF( XVal(EF_STA Aro US_OFF 
10 Continue 
Return 


End 
'CEnd of File) 
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